home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 109 / EnigmaAmiga109CD.iso / dalla rivista / host contacted / imengv3.41p1.lha / ImEngV3.41p1 / ARexx / ContStretchRegion.rexx < prev    next >
OS/2 REXX Batch file  |  1995-04-27  |  1KB  |  46 lines
  1. /* Image Engineer ARexx macro script                           */
  2. /* by Simon Edwards                                            */
  3. /* 27/4/95                                                     */
  4. /*                                                             */
  5. /* Contrast Stretches the region marked out on a given project */
  6.  
  7. Options results
  8. signal on error            /* Setup a place for errors to go */
  9.  
  10. if arg()==0 then exit
  11.  
  12. 'PROJECT_INFO' arg(1) 'BOX'    /* Get the dimensions of the box */
  13. CropBox=RESULT
  14. 'CROP' arg(1) CropBox        /* Crop it */
  15. CropPic=RESULT
  16.  
  17. 'CONTRAST_STRETCH' CropPic
  18. NewPic=RESULT
  19. CLOSE CropPic
  20.  
  21. 'MARK' NewPic 'PRIMARY'        /* Mark the pixelized image as primary */
  22. 'MARK' arg(1) 'SECONDARY'    /* Mark the original as secondary */
  23. 'COMPOSITE' WORD(CropBox,1) WORD(CropBox,2) MIX 100    /* Merge the two */
  24.  
  25. CLOSE NewPic
  26.  
  27. exit
  28.  
  29. /*******************************************************************/
  30. /* This is where control goes when an error code is returned by IE */
  31. /* It puts up a message saying what happened and on which line     */
  32. /*******************************************************************/
  33. error:
  34. if RC=5 then do            /* Did the user just cancel us? */
  35.     IE_TO_FRONT
  36.     LAST_ERROR
  37.     'REQUEST "'||RESULT||'"'
  38.     exit
  39. end
  40. else do
  41.     IE_TO_FRONT
  42.     LAST_ERROR
  43.     'REQUEST "Error detected!!!'||D2C(10)||'Image Engineer error message is as follows'||D2C(10)||result||D2C(10)||'Script failed on line '||SIGL||'"' 'Doh!'
  44.     exit
  45. end
  46.